home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Using groove in def-groove < prev    next >
Text File  |  1998-10-26  |  717b  |  44 lines
  1. ; Here is a simple demo that shows how to use grooves
  2.  
  3. (def-symbol
  4.    piano1 '(a b c d e f g h i j k l m n)
  5.    piano2 (reverse (symbol-of piano1))
  6. )
  7.  
  8. (def-length
  9.    piano1 '((1/16) (1/8t))
  10.    piano2 '((1/16) (1/8t))
  11. )
  12.  
  13. ; nothing for real, just an example of shifting start positions
  14.  
  15. (def-groove
  16.    piano1 '((-1/64) (-1/128))
  17.    piano2 '(1/32 1/64)
  18. )
  19.  
  20. (def-tonality
  21.    piano1 (activate-tonality (pentamajor c 4) (pentamajor d# 4))
  22.    piano2 (activate-tonality (pentamajor c 5) (pentamajor d# 5))
  23. )
  24.  
  25. (def-zone
  26.    piano1 '(2/1 2/1 1/1 1/1)
  27.    piano2 '(2/1 2/1 1/1 1/1)
  28. )
  29.  
  30. (def-channel
  31.    piano1 1
  32.    piano2 2
  33. )
  34.  
  35. (def-tempo 120)
  36.  
  37. (midiport :printer)
  38.  
  39. (compile-instrument-p "ccl;output:" "grooves"
  40.    piano1
  41.    piano2
  42. )
  43.  
  44.